home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1001_CButton < prev    next >
Encoding:
Text File  |  1992-04-08  |  589 b   |  35 lines
  1. %case uses%
  2. %case defineItem%
  3.     %CtlItemPane%
  4. %case DoCommand%
  5.     %if clickCmd > 1023%
  6.         cmd%itemName%:
  7.                 Do%itemname%;
  8.     %endif%
  9. %case auxiliaryMethod.decl%
  10.     %if clickCmd > 1023%
  11.         Procedure Do%itemname%;
  12.     %endif%
  13. %case auxiliaryMethod%
  14.     %if clickCmd > 1023%
  15.         {----------}
  16.         %if window%
  17.             Procedure C%windname%.Do%itemname%;
  18.         %else%
  19.             Procedure C%dlogname%.Do%itemname%;
  20.         %endif%
  21.         Begin
  22.         End; {Do%itemname%}
  23.  
  24.     %endif%
  25. %case instance%
  26.     %if classname = CButton%
  27.         %itemname%:%    %CAMButton;
  28.     %else%
  29.         %itemname%:%    %%classname%;
  30.     %endif%
  31. %case create%
  32.     
  33.     New (%itemname%);
  34.     %CtlItemPane%
  35.